#!/usr/bin/perl -w
use 5.010;

my $what="larry";
while(($_=<>)=~/[^\n]/){
	if(/^($what)/){
		print "We saw $what in beginning of $_";
	}
}
